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ach TESSEEHOEE ARSNGE ABSA SUARHESS2 


MODULE COBSCALL ( 
we = "1-010" ! file: COBCALL.B32 ED1IT:LB1010 
= 


Sssss 


Oy ee etre ae Na ah ya Ne a te ee ype ek fee ay 4 
“ UMEWwr— 


BEGIN 


' 
eRe RRA RARAAAAAAAEAEAAAAAAAAAAATAAARATAAAAAAAAAAAAAAEAEAAEKEAERERA ARRAS 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH aint AND we Me 


COOoooooooo 


® 

® 

“ 

w 

® 

® 

® 

* 

; 0 * 
!@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. ° 
® 

!# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
® 

® 

® 

* 

® 

*® 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


pelo folololololelolq~) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
: ' SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

1 !e 

1 VR eRRAAAARAAAAAAAAAAAAAAAAEARAAAAAAAREAAAAA EA AATERAAAAAAEAAAAAAEAAAAAAARAAEEES 
1 
1 * 

: FACILITY: COBOL SUPPORT 

1 ! ABSTRACT: This procedure fetches the address of the routine entry 

1 point that is associated with the name that is passed 

1 to it via the "‘DESC’’ parameter. If the correspeneing 

1 address of the routine is not found, then this procedure 

' returns a value of zero to the calling program. 

i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 


ENVIRONMENT: Vax-11 User Mode 
NOTE: This module cannot be in a shareable library 


AUTHOR: MLJ , CREATION DATE: 10-APR-1979 
MODIFIED BY: 


WN "SO OCOBNOVUSWN “OOD ODNOUE WN “OOONOUS Wh 


FUN (SO OONOUES WN —“OOONOUS WOO 


OoOooooo 


i) 
ooo 
Swnwws 
owoon~ 


So 

o 

> 
WMFwt— 


Pn ee eS SSeS WAL. ALAI AIO RIPPON NINININIDY 2 2 I OO So 
SCOMNOUE WH -O0OnN ae 


et rs 


1-001 - Original. MLJ 10-APR-1979 

004 1-002 = Added boilerplate and comments. RKR 18-JULY-1979 

0048 1-003 - peclore peects via Library macro. RKR 23-AUG-1979 

0049 1-004 = Fetch COBDEF from RTLIN rather than LIBS. RKR 18-SEPT-79 

B30 1-005 - siarat error COBS_ROUNOTLIN if COBSSFIND_NAME fails. 
1 51 RKR 2-0CT-79 
4 O2¢ 1- 06 = Undo rev. 5, not desired action. RKR 04-OCT-79 

05 1-007 - Cosneti¢ changes. RKR 18-OCT-79 
4 054 1-008 - Signal if name not found. 21-OCT-79 ‘ 
5 055 1-009 = Remove all signalling ect ions == let compiled-code caller ‘ 
6 36 do the signalling.  RKR ¢ -0€1-79 . 
7 05 ! 1-010 - Added functional description, abstract, comments and cosmetic 


changes. LB 02-MAR-81 


Erseent9Ee 0:08:39 


Ax-11 8B biege 
COBRTLS cic 


aBcAti e535 


“oe a 


a wie siete Me Me yong ess ers 
i810 Ve-Sep-i9ee V2:to:es — ECdantursmescoBcari esos ne 


a 1 1 t¢ 

; «6 1 § SWITCHES 

¢ Be Lag 

: 66 065 SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
: 68 $i 1 !4 

3 9 068 1 ! LINKAGES 

; 0 B08 1! 

i.) oe 9 1! -NONE 

; 82 

; we Org 1 !4 

3 4) 907% i TABLE OF CONTENTS: 

; a 0076 FORWARD ROUTINE 

: #79 0078 1 COBSCALL ; 

OB ie Bote 

: 8B 0081 1°! INCLUDE FILES 

Bea ike 

; BS 0084 1 REQUIRE ‘RILIN:RTLPSECT® ; ! Macros for declaring psects 

; Hy aity ; REQUIRE ‘RTLIN:COBDEF'; : COBOL specific RTL macros and Literals 
: 88 0638 ee 

; 50 06 4 1 | MACROS 

3 91 0625 1! -NONE 

9 0626 1 !- 

3 0658 | te 

> 95 0629 1 | EQUATED SYMBOLS 

3 96 0630 1! -NONE 

: 97 0631 1 !- 

me. ae 

: 100 0654 | PSECT DECLARATIONS: 

; 1 0636 1_ — 

; 108 0637 } DECLARE_PSECTS (COB) ; ! Psects for COBS$ facility 

: 105 639 1 !¢ 

: 106 $673 1 ' EXTERNAL REFERENCES 

BATE 

: 199 Obee } a, '\Find routine name match in List 
: 111 0645 1 i/of local and global program names 
> 112 0646 1 COBSSFIND_NAME : ADDRESSING_MODE (GENERAL) ; 


10 
iT i Shee 90:08:98 YASH ShoscaZ ats gts set 


; 139 : ! GLOBAL ROUTINE COBSCALL(DESC,LLIST)= 

3 Ng : 1 

3; 11 : 1 {+4 

MB a : } ! FUNCTIONAL DESCRIPTION: 

; 11 : : This routine passes control to routine COBSSFIND_NAME which will 
F : 1; search through the List of local program names tO find a match to 
: 121 : }! the ferenejer DESC’. If no match is found, it searches area 
ss ; : 1! the list of global program names Céestonetes by the COBSGZ_NAMES_2 
= é 1! structure). If a match is found, then COBSCALL will returh the 
s 126 : 1! address of the routine entry point; otherwise, it returns a value 
3 : 5 : : of zero. 

3 ; ? 56 : CALLING SEQUENCE: 

3 ; 9 56 : } COBSCALL (desc.rt.ds, Llist.rr.r) 

Fy : 1 é : FORMAL PARAMETERS: 

3 : ‘ pees } DESC.rt.ds Address of descriptor for name 

: 5 0668 LLIST.rr.r Pointer to a counted List of accessible local programs 
oe $74 1 ! IMPLICIT INPUTS: 

a 0671 1! 

3; 139 Bore 1! NONE 

: 140 06735 1! 

: (141 0674 1 ! IMPLICIT OUTPUTS: 

3 166 0675 1! 

3; 616 Bore 1! NONE 

3; 6146 gee 1! 

: «6145 78 1 =! ROUTINE VALUE: 

3 re 0679 1! 

3 Hs Bees | : Address of desired routine's entry point, else 0 if not found 

3; «149 06 § 1 ! COMPLETION CODES: 

: 150 06 1! 

s 31 +4 Se NONE 

3 136 685 1! 

3 %3 ty] 1 ! SIDE EFFECTS: 

3: 6154 1! 

3 155 88 1! NONE 

3 136 89 1! 

3 1 90 1 lee 

; 158 91 1 

3; «6159 9 BEGIN 

; 160 9 

; 6161 94 LOCAL 

; 106 695 P: REF BLOCK C, BYTE); 

: 16 38 

3; 164 69 BUILTIN 

3; 6165 8 ° 

3 196 $ H CALLG; 

: 168 ro P = CALLG (.AP,COBSSF IND_NAME); ' Find a match for program name 
: 169 7 ; IF .P NEQ 0 ' If NEQ 0, then match found 

; 170 070 THEN 


f 
| 
SCALL 16-49 1984 AX-11 Bliss-32 V4.0-74 Page 5 

itt ye=geei13Be 99:98:33 eetaare Saeicosckct wsoet 9° 635 

s 7) *, -PCCOBSA_NAM_ENTRY] ; io ch addr of routine entry 

eS. § 798 P ' point ene return it to 

ithe calling program 

: 174 ! End of routine COBSCALL 


-TITLE COBSCALL 
- IDEN Se 


.EXTRN COBSSFIND_NAME 
.PSECT _COBSCODE,NOWRT, SHR, PIC,2 


0000 000 SENTRY COBSCALL Save nothing £0647. 
000000006 00 C FA 0000 CALLG (AP), COBSSFIND_NAME > 0701. 
0 03 444 TSTL Pp 3 0702, 
04 13 00008 BEQL 1$ ; 
50 08 AO 00 0000D MOVL 8(P), P 3 0704) 
04 00011 1$: RET ; 0707 
; Routine Size: 18 bytes, Routine Base: _COBSCODE + 0000 
: 175 0708 1 END ! End of module COBSCALL 
; 176 0709 O ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: _COBSCODE 18 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:COBCALL/OBJ=O0BJ$:COBCALL MSRC$:COBCALL/UPDATE=(ENHS$: COBCALL) 
; ag 18 sade + 3° data bytes 
: Sleoked Time: 0:08:9 
3 Lines/CPU Min: 8 
: Nee AH gg 40911 


Y Used: 38 pages 
; on ation Complete 


‘AH-BT13A-SE NT CORPORATION 
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